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COMMENTS FROM THE PUBLISHER 


This is the first of what we hope the acceptance will grow. The 
will be a long and healthy life for 6800 and the successors to the 
the ICCD. We believe that the 6800 are growing daily in 

ICCD Journal has a need which popularity. The Newsletter name 
does not compete with existing which was to be FIFO has been 
journals, pamphlets, newsletters changed to the 6800 User’s CHIP. 
and magazines. As the issues It is here we will tell the happen- 


become more sophisticated we feel _ ings in the world of the 6800. 


A special note of thanks to some 
of our well wishers—John Craig, 
Editor of Kilobaud and Mr. Dan 
Meyer, President of the Southwest 
Technical Products Corporation. 
Dan deserves a great deal of 
thanks for his support of the 
ICCD through our acquisition of 
test hardware. These tests and 
evaluations will be published from 
time to time. 

We ask for advance notices to fur- 
ther support the needs of the 
SWTPC 6800 User who is not for- 
tunate to have a computer store 
or a university in his immediate 
location. A note of what the 
future is to bring. More graphics, 
programs on billing-invoices and 
short programs from port to 
print. Evaluation of the 
Microware RT 68 Mx is also 
underway. More on Discs. We are 
currently testing 2 sets of dual 
floppies and have 5 other dual 
floppy disc systems being used or 
at ICCD disposal. Perhaps an 
Operating System in DOS? 


Now, what about you the reader- 
subscriber? What article do you 
have? What do you wish to 
share? Where are the General 
Ledgers with sub ledgers like the 
8080 (Altair-MITS) Floppy Rom 
appearing in Interface Age for the 
6800 Users? What about an inter- 
face for the 6502 PET with the 
6800? We have the basis of fast 
turn-around time and will exercise 
this in future issues. The birth was 
quite painful and slow. Help us 
out with articles—full listings can 
be accomplished and-we intend to 
document all programs possible. 
We ask you to tell us what you 
want, expect and need. Possible 
columns, if the need is expressed, 
there will be literature summaries, 
glitches, graphics, business 
systems, Letters to the Editor, etc. 
PLEASE TELL US. ICCD will act 
as your spokesperson in the 6800 
world. 


Harold Zallen, Ph.D. 
Editor-Publisher 
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SWTPC 
GRAPHICS 


In truth, it was the sight of the 
Enterprise stationed majestically 
above the Earth in a holding orbit 
that sold me on a SWTPC GT- 
6144 Graphic Terminal. It really 
does produce a very impressive 
Star Trek scene with the software 
provided by Southwest. But from 
that point on we are on our own. 
Assembly language programming 
on a extended basis gets old in a 
hurry besides leading to feelings 
of great personal inadequacy. My 
solution is this short program 
(written with liberal use of 
subroutines from the software 
supplied by Southwest) which 
allows the GT-6144 to be pro- 
grammed with Technical Systems 
Consultants’, MICRO BASIC 
Plus.© 


Access to the Graphic routine is 
made through the EXTERNAL 
statement. This causes a “branch 
to subroutine” which appears to 
the BASIC exactly like a GOSUB 
statement. Graphic in turn looks 
at the values stored in the “X”, 
“Y” and“Z” variables for the GT- 
6144's control functions and dot 
position data. All functions of the 
Graphic Terminal are under soft- 
ware control and available to 
BASIC, including a full screen 
erase. The terminal's display is 
formed from a 64 by 96 dot 
matrix. Positioning is determined 
by specifying the number of dot 
positions to the right and up from 
the lower left hand corner of the 
screen. Horizontal placement is 
the value stored in the “X” 
variable and has a valid range of 
from 0 to +63. Vertical position 
comes from the “Y” variable and 
its range is from 0 to +95. 


“Z" is used for the control func- 
tions and are given in the pro- 
gram listing. Before entering 
Graphic through EXT the proper 
values must be present in these 
variables. One disadvantage to us- 
ing BASIC with the Graphic Ter- 
minal is a loss in speed. A fast 
moving “Pong” type game might 
be difficult to make using BASIC. 
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88520 1f@2 FF IFAC 
68538 1FUS D6 FB 

6348 IFO? DB FC 

80950 1FB9 DB FS 
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* OUTPUT ROUTINE 
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3088 REM 


TIC-TAC-TOE 

3085 REM GRAPHIC DISPLAY 

3818 REM SUBROUTINES WRITTEN IN 
3828 REM TSC MICRO BASIC PLUS WITH 
S830 REM GRAPHIC AND SWIPE CT-6144 


5848 REM 

5858 REM 5/77 RL SMITH 
5188 REM GAME FIELD 

5185 REM setosioienioteitesiossicistostotede 
5118 2=8 

5120 Y=341:FOR X=5 TO 55: EXT: NEXT X 
5138 Y=62:FOR X=5 TO 55: EXT: NEXT X 
5148 X=28:FOR Y=5 TO 90: EXT: NEXT ¥ 
5158 X=38: FOR ¥=5 TO 96: EXT: NEXT ¥ 
5168 RETURN 

5178 REM teolscsneloieoeisiecisielciniajaiaistes 
5188 REM “X* SUBROUTINE 

5198 Ues+¢ (UH13*38): L=94+(<L-19*17) 
5206 ¥=U+20: FOR X=L TO L+6 

S248 EXT: Y=a—4: EXT: Ye¥—1: EXT: Y=¥-4 
5228 NEXT X 


3238 Y=U 

3248 FOR X=L TO L+6: EXT: YeYe4 

S258 EXT: V="44: EXT: Ye¥4d: NEXT X: RETURN 
3268 REM “G* SUBROUTINE 

5265 #eloioleiioeletaioieisiejetateioieysiee 

S276 Us6+¢ (U-1)"38): L=9+((L-2 e173 
3283 FOR Y=U+20 TO U+18 STEP-1 
S298 FOR X=L 10 L+6: EXT 

S288 NEXT K: NEXT ¥ 

3318 X=L+6: FOR Y=U+26 TO U STEP-1 
5328 EXT: NEXT ¥ 

3338 FOR Y=U TO Ute 

3348 FOR X=Lt6 TO L STEP-1 

S358 EXT: NEAT X: NERT ¥ 

3368 ASL: FOR Ye TO U2: EXT: NEXT ¥ 
S378 RETURN 


The program is located at 1F00 
through 1FAD. Entry is at 1FOO. 
With the exception of the tem- 
porary storage area all addressing 
is in the relative mode making 
relocation a simple matter. Of 
course, if the Graphic is relocated 
this change should also be 
reflected in the EXTERNAL jump 
of the TSC BASIC. Graphic 
assumes the GT-6144 PIA is in 
Port Number 5, 8014 (HEX), it 
may be changed by placing a dif- 
ferent port address at 1F4F and 
1F50. 


R. Lynn Smith 

PSC No. 1 Box 7327 

APO San Francisco, California 
96286 


HUMPS AND 
SUMPS 


(or How To Know 
When To Grit Your 
Teeth) 


Everything has its ups and downs, 
your mother told you that! But it 
is more real than you may realize. 
Repetitive cycles occur in many 
systems; day and night, seasons, 
sunspots and whatever it is that 
makes girls different from boys. 
Ah, now that we're close to 
home, what are the cyclic 
rhythms that are a part of our 
physiological make-up? Other 
than the afore (un) mentioned, 
there is the circurian rhythm. This 
interpretation of your bodily func- 
tions has been well studied by 
scientists the world over. It 
basically describes your subtle 
physiological changes during each 
day. The circurian rhythm is 
demonstrated by such things as 
afternoon sleepiness and jet lag. 
The application of this rhythm is 
quite good for the relief of guilt 
over drinking alcohol during 
lunch or on the plane. 


On to bigger cycles! The 
biorhythm is a physiological cy- 
cle, which covers a larger time in- 
terval. Due to this fact, scientific 
studies have been based on 
statistics and is therefore less 
definitive than circurian rhythms. 
But as the statistics pile up, it ap- 
pears that this longer cycle 
describes emphatic changes in 
your daily life. 


The biorhythm consists of three 
curves usually plotted as sine 
waves. The shortest is the 
physical curve which completes its 
cycle in 23 days. Next is the emo- 
tional curve which is 28 days long 
and finally the intellectual which 
appears to run 33 days. It is 
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curious to note that the emotions 
and physical curves were deter- 
mined simultaneously and in- 
dependently by two European 
physicians in the early 1900's, Dr 
Willhelm Fleiss of Berlin and Dr 
Hermann Swoboda of Vienna. 
Both gentlemen base their theories 
on observed physical and 
physiological changes. Dr. Fleiss 
believed the emotional curve oc 
curred in women and the physics 
in men. When it was observed 
that both curves are represented 
in men and women, it lended 
itself to support certain theories & 
Dr. Fleiss’ friend and patient, Sie- 
mund Freud, the considered 
founder of modern day 
psychiatry. 


The intellectual curve was obsery- 
ed later by Dr. Alfred Teltscher 
an engineering professor in Inn- 
sbruck. Teltscher’s work indicate: 
fluctuations in test scores that 
could be related back to the 
students birthdate. 


The basic theory states that the 
curves start at zero and are in 
phase at birth—(a good starting 
point). The progression from tha 
point is regular and therefore eas» 
to calculate. 


With each of the three curves 
there are three parts: UP, DOW 
and CRITICAL. Consider these 
curves to repesent a stress or 
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energy cycle. During the up por- 
tion, you are dissipating energy 
and may be able to accomplish 
more or be in a better state of 
mind than in the down portion 
where you are in what may be 
called a “recharging state”. The 
transition between these two 
states appears to be of most 
significance. At time zero, stress 
statistics state that we are more 
accident prone, therefore, it is 
termed the “critical” period. 


The program is written to plot 
biorhythm curves for birthdates 
and starting dates within the 
twentieth century. The dates 
should be entered as 9,26,47 for 
September 26, 1947. The day of 
the week for the two entered dates 
will be printed. The three curves 
are represented by characters. 
Where two characters need to oc- 
cupy the same space an “X” is 
printed. There is no significance 
to the presence of an”X”. Critical 
days may or may not have an “X” 
in the center column. Visually 
they form a curve of like letters. 
When the curve crosses the critical 
line that day is to be considered 
critical. 


The program will initially ask for 
the port number and column 
width. This will allow you to out- 
put the curve to any output 
device. If the column width is 
greater than 64 characters or so, 
you might want to add: 


0OX845 PRINT 


This should make the curve more 
readable. Upon the completion of 
each curve, information is re- 
quested for the next curve. The 
program must be re-started to 
change the output port and col- 
umn width. 


After you run your chart, don’t 
expect it to tell you your good 
and bad days, but rather observe 
your potentials in relation to the 
curves. Some adjustment may be 
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REM *BIOSIN BY ReL-HILBUN 
REM *#WRITTEN FOR ICCD 


REM *ENTER BASE DATA 
DIM NC12)25¢€12)sDS8¢7) 
DATA 3152853145 305315305315315305 31530531 
DATA Os 315592905 1205151518 152125 24352735 3045 334 
DATA SUNDAYsMONDAY.»s TUESDAY» WEDNESDAY» THURSDAY » FRIDAY» SATURDAY 
FOR I=1 TO 12 
READ NCI) 
NEXT I 
FOR I=1 TO 12 
READ SCI) 
NEXT I 
FOR I=1 TO 7 
READ DS(I1) 
NEXT I 
REM *DEFINE FUNCTIONS 
P1=2*3.14159 
DEF FNPCX)=INTCA*SINCP1*X/23)+-5) 
DEF FNECX)=INTCAKSINCPI#X/28) +05) 
DEF FNICX)=INTCA¥SINCPI#¥X/33) +05) 
REM *HOME UP & ERASE PAGE (CT-1024) 
PRINT CHRS¢16)3 CHRS$(22)3 
REM *SET PRINTER PARAMETERS 
INPUT “OUTPUT PORT"sP 
INPUT “COLUMN WIDTH" ,W 
A=(W-8)/2 
C=AtT7 
PRINT CHRS(16)3CHRS(22)5 
REM *ENTER INDIVIDUAL DATA 
PRINT "ENTER DATE AS 45,1577 FOR" 
PRINT " APRIL 13,1977" 
PRINT 
INPUT “NAME“ SNS 
INPUT “DATE OF BIRTH"sM1s,D15Y1 
INPUT “STARTING DATE" sM2sD2sY2 
INPUT “NUMBER OF DAYS TO PLOT"sL 
M=M1 
D=D1 
Yy=Yl 
GOSUB 
Ti=T 
BS=DS 
M=M2 
D=D2 
Y=ye 
GOSUB 1220 
T2=T 
S$$=D$S 
REM «FIND AGE IN DAYS 
TO=T2-Tl 
REM *START COUNT 
Li=1 
PRINT CHRS(16)3CHRS(22) 
PORT= P 
REM *PRINT HEADING 
PRINT TABC4)3"BIOSIN: “SNS 
PRINT TABC4)3"BIRTH DATE: "SBS3"s"3MISDISY1 
PRINT TABC4)3"“START DATE: "3 S83 "5 "3M23D25Y2 
PRINT 
PRINT TABC8)3 "DOWN'S TABC 114+ (W-22)/2) 3 "CRITICAL"3 TABCW-3)5 "UP". 
REM *PRINT DATE 
PRINT M25 D23 
REM «CORRECT DATA FOR LEAP YEAR 
IF Y2/4=INTCY2/4) THEN N(2)=29 
REM *INCREMENT DAYS & MONTHS 
D2=D2+1 
IF’ D2<=N(M2) THEN 740 


1220 


required to obtain a chart so that 
your observations will coincide, 
don’t hesitate to do this! Once a 
“corrected” birthday is fixed, the 
cyclic patterns will be as described 


in the program and then max- 
imum benefit from the chart can 
be obtained. These corrections are 
usually less than four days. 


sr 
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D2=1 
M2=M2+1 
IF M2>12 THEN M2=1 
REM *CALCULATE SYMBOL POSITION 
FC 1)=C+FNPCTO) 
FSC 1l)="pe 
F(2)=C+FNE(TO) 
FS(2)="—E" 
FC3)=C+FNI (TO) 
FSC3)="1" 
FC4)=C 
FS(4)="%" 
REM *PLACE SYMBOLS IN ORDER 
FOR I=1 TO 3 
FOR-J=I+1 TO 4 
IF FCI)<FC(J) THEN 970 
IF FCI)<>FC(J) THEN 910 
F¢I)=0 
FSC I)=te 
FSCJ)="XK" 
GOTO 970 
Q=FC¢I) 
Q$=FS(1) 
FCI.=F¢J) 
FSCID=FS(J) 
F(J)=0 
FS(J)=Q5 
NEXT J 
NEXT I 
REM *PRINT SYMBOLS 
FOR I=1 TO 4 
PRINT TABCFC(I))3FSC1)3 
NEXT I 
PRINT 
REM *INCREMENT AGE 
TO=TO+1 : 
IF L=L1 THEN 1100 
REM *INCREMENT COUNT 
LI=Li+1 
GOTO 640 
PRINT 
PRINT TABC5)3"P-PHYSICAL" 
PRINT TABC(5)3"E-EMOTIONAL™ 
PRINT TAB(5)3"I-INTELLECTUAL" 
IF P=1 GOTO 300 
REM *FORM FEED (PR-40) 
FOR I=1 TO 12 
PRINT 
NEXT I 
PORT= 1 
GOTO 300 


T= 365*Y+INTCCY=-1)/4)+S(M)4D 

IF Y/4<>INTCY/4) THEN 1260 
IF 'M>2 THEN T=T+1] 

REM *CALCULATE DAY OF WEEK 
K=INTCCCT/7)-INTCT/7) .*& 7405) + 
DS=DS¢K) 

RETURN 


R. L. Hilbun is a graduate in 
engineering from Mississippi State 
University and is presently 
District Production Engineer with 
Universal Resources Corporation, 
Oklahoma City, Oklahoma. His 
interest in Psychology and 
Physiology was developed while 
pursuing graduate studies in 
Psychology at McNeese State 
University, Lake Charles, Loui- 
siana. 


REM. *CALCULATE NO- DAYS SINCE YEAR 
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R.L. Hilbun 
8109 Willow Creek Blvd. 
Oklahoma City, Oklahoma 73132 


PERSONALITY: 
EVOLUTION OF 
A 

COMPLEX 
MACHINE? 


Behavior is the output of per- 
sonality. To form theories of per- 
sonality, many great men and 
women have closely observed the 
behavior of others and 
themselves. Although most 
theories have been advanced 
within the last one hundred years, 
the sum of the ideas presented 
gives a very complete picture of 
the character of the “Human 
Machine.” 


During the last few decades, 
science of electronics also has ad- 
vanced. The paralleled develop- 
ment of these two sciences can 
now merge and in the author's 
opinion, our knowledge of elec- 
tronics whch is very complete and 
exact, can be used to form a 
variety of models to help us 
understand the innate make up of 
our various personalities. Even 
without making electronic models 
to represent our human make up, 
much can be learned by observing 
the devices currently in use in the 
light of how they might be like 
our own function but in vastly 
simpler form. 


There is little magic in electronics. 
The same computers in use today 
could be mechanical or fluidedic. 
It is easy to see that electrical 
devices offer much less design and 
construction problems and greater 
speed. Another form of construc- 
tion which could be used is some 
combination of an electro- 
chemical design. This is the 
general type of device that each of 
us have within our own body and 
more specifically our crainal cavi- 
ty. 


es 
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Most electronic devices are of the 
dedicated type; they perform one 
function with no method of self 
modification. These simple designs 
can be compared to plant life and 
the limited variation from the 
norm. The higher order of devices 
are not as dedicated. We com- 
monly term these as computers. 
The devices have characteristics or 
if you wish, “personalities” and 
by applying some imagination can 
be crudely used to help us unders- 
tand our own personalities. 


Computer is a broad term, but let 
us say that any device with a 
large number of logic circuits and 
a memory is usable for study. 
Devices of this type, no matter 
what their particular use are good 
for subject models to form this 
author's theory of personality. 


The birth of a person and the 
powering up of a computer are 
much the same. The basic idiosyn- 
crasies, heredity and archetypes, 
are displayed. With a computer 
the display is instant; the “gar- 
bage” that is displayed is usually 
the same with each power-up. 


Just as electricity follows the path 
of least resistance, so do our 
behaviors reflect the sum total of 
all our motivations. The young 
child and the unprogrammed 
machine merely try to reach a 
state of equilibrium. As the 
memory is filled both human and 
machine modify their behavior. In 
both cases the addition to the 
memory can 1) come from the en- 
vironment; 2) be generated from 
within; or 3) a combination of the 
two. The latter case for the 
human could be subjective inter- 
pretation. 


It appears that our memory may 
be very machine-like. One 
physiological experiment involved 
electrical excitation of various 
parts of the human brain. he sub- 
jects reported a very vivid recall 
of some past experience. The ex- 
perience was in most cases an Or- 


dinary one, that is, not a 
traumatic incidence as would be 
expected. If in fact, the human 
brain stores most of the informa- 
tion that it receives, it would be 
safe to say that one human brain 
stores as much information as all 
the electronic devices now in ex- 
istence! 


Most present day computers have 
by nature total recall ability for 
information that has not been 
discarded and even though the 
data is manipulated, little if any, 
interpretation is involved. The 
human, in this respect, is vastly 
different. Firstly, verbatum recall 
is the exception rather than the 
rule. Most recalled information is 
recalled as an interpretation. This 
same recalled information is deter- 
mining that person's behavior. It 
can be said then that the inter- 
pretation of partially recalled in- 
formation plus the basic initial 
make-up of a person determines 
his personality. 


This barely touches on the reasons 
for various types of personalities 
or the general make-up of a single 
personality, however, the correla- 
tion between our information pro- 
cessing machines in our heads and 
in our computer centers is, in my 
opinion, becoming increasingly 
important. Even though our 
knowledge of electronics is exact, 
the builders of some of the more 
complex computers have been 
unable to explain what appears to 
be subjective interpretation taking 
place in their machines. 


Ron L. Hilbun 
8109 Willow Creek Blvd. 
Oklahoma City, Oklahoma 73132 


ONE MAN'S 
OPINION OF 
BASIC TIM- 
ING 

COM- 
PARISONS 


Since the article on BASIC timing 
comparisons appeared in Kilobaud 
(1) many people have asked my 
thoughts on this subject. Most are 
rather surprised to find that I am 
not worried about 6800 BASIC 
being quite slow - in fact, I could 
care less. I have been asked how 
to get Altair 680 BASIC (without 
paying MITS an arm and a leg for 
it). I have been asked to rewrite 
OSI’s 6502 Basic for the 6800. My 
answer to both of these questions 
was,”Why? It’s not worth the ef- 
fort.”. 


Because there is apparently con- 
siderable interest in the subject, I 
decided to look into the relative 
speeds of the various BASIC’s. 
SWTPC’s 4K BASIC “feels” faster 
than their 8K BASIC, so I ran the 
“benchmark” programs from the 
Kilobaud article using SWTPC 4K 
BASIC. To my surprise, there was 
virtually no difference between 
the times listed in the Kilobaud 
article for SWTPC 8K BASIC 
V1.0 and those I obtained with 
my system using 4K BASIC. Ac- 
tually, I shouldn't have been sur- 
prised as both use Binary Coded 
Decimal (BCD) arithmetic and the 
same precision. Then I ran the 
benchmark programs using 
SWTPC 8K BASIC V2.0 (which is 
supposed to be faster than version 
1.0). Again, I found no difference 
in speed! 


Shortly thereafter I had the op- 
portunity to ask Dr. Robert 
Suding of the Digital Group about 


his feelings on the Kilobaud arti- tion, I wrote a simple program in 10 NEXT X 


cle. You may be surprised to 
know that he was not the least 
upset that the Digital Group's 
Maxi-BASIC could only manage 
to tie for seventh fastest when it 
was used in a Z-80 system runn- 
ing at full speed. His response was 
essentially the same as that of 
Robert Uiterwyk in the addendum 
to the Kilobaud article. The facts 
of BCD arithmetic and additional 
precision again appeared. This led 
me to run the benchmark pro- 
grams using Robert Uiterwyk’s 
Micro-BASIC, which uses double 
byte integer math. The results 
were as follows: 
Benchmark Number Time (in 

seconds) 

1.4 

8.25 
15.25 
15.9 
21.6 
30.5 
46.3 
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If you compare this to the chart in 
the Kilobaud article, you will find 
this 6800 BASIC is somewhat 
slower than APPLE BASIC© (2) 
but faster than every other BASIC 
tested on a microcomputer! Before 
you run out and get a copy of 
Mr. Uiterwyk’s Micro-Basic, think 
about what you can do with it. 
The answer is: very little. It has 
limited statements and commands, 
very limited math range, integer 
math only, etc. I seriously doubt 
whether you would be willing to 
trade 4K BASIC for it (much less 
8K BASIC) just to get the addi- 
tional speed. 


What is the answer to speeding up 
BASIC? I considered interfacing a 
calculator chip to my 6800. Surely 
this would be the answer! Modify 
BASIC to have BASIC give the 
calculator chip the problem then 
pick up the answer from the 
calculator chip after it had com- 
puted the solution. But, how 
much time would be gained by us- 
ing this method? To aid in deter- 
mining the answer to this ques- 
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BASIC to do factorials. I did this 
assuming I could compare the 
time required by BASIC vs. the 
time required by my scientific 
calculator and obtain an approx- 
imate answer. The factorial pro- 
gram is as follows: 


10 INPUT “TYPE A NUMBER 
(69 or less)”, N 

20 F=1 

30 N= ABS(N) 

40 IF N 69 THEN STOP 

50 IF N=0 THEN 100 

60 FOR X=N TO 1 STEP -1 

70 Fl=F*X 


80 F=F1 

90 NEXT X 
100 PRINT “THE FACTORIAL 
OF ":N;” is ““F 
110 END 


The results of this comparison 
were so astounding that I re-ran 
the comparison many times. My 
scientific calculator required ap- 
proximately twice the time re- 
quired by BASIC to arrive at the 
answer! Now I know that inter- 
facing a calculator chip to the 
6800 won't speed things up but 
would actually slow BASIC 
down! I am now of the opinion 
that you would have to build a 
TTL math board which would run 
on its own clock at a much higher 
speed than the 6800 just to gain a 
few seconds. If you decide to go 
this route, I wish you well; 
because you're in for the hassle of 
your life! And don’t be surprised 
if you only speed BASIC up very 
slightly. 


Why would you only get a slight 
increase in speed by using a TTL 
math board running at, say, 30 
MHz? You would get a terrific in- 
crease in the speed of addition, 
subtraction, multiplication, and 
division; but BASIC spends only a 
small portion of its time in these 
operations. You would not speed 
up things such as 

FOR .... NEXT loops. Consider 
for a moment the simple loop: 


10 FOR X=1 TO 100 


10 FOR X=01 TO 03 
20 NEXT X 


Remember, when you are ‘talking’ 
to BASIC, you are using ASCII; 
which means that a 1 is a 31 and 
100 is 31 30 30. In order for 
BASIC to use this information, it 
must convert it (each and every 
time it is encountered in your pro- 
gram) to packed BCD format. 
Sounds simple enough, right? No 
problem to convert 31 to 1. True 
enough, if BASIC could do it that 
way, which it can’t because of its 
precision. With the siraple loop 
shown above, you are effectively 
telling BASIC the following: 


If you include a STEP factor, you 
slow the conversion and execution 
even more. You can see from the 
above example that BASIC must 
worry about the sign of the 
number, the number itself (to nine 
decimal places), the sign of the ex- 
ponent, and the exponent itself; 
even when it is dealing with the 
simple number 1! 


Altair Basic may be the answer 
for you if you are willing to settle 
for 50% less precision, unexplain- 
ed intermittent loss of precision 
(3), etc. Personally, I would 
rather wait a little longer and 
know the answer to the problem 
given to BASIC is correct. Why 
am I unconcerned that 6800 
BASIC is slow? All of the current 
crop of BASIC’s for all of the 
microprocessors are slow! This is 
because they are interpreters and 
interpreters are slow. Your BASIC 
is a machine language program 
that thinks it is a computer. So, 
your 6800 is running a machine 
language program (BASIC) which 
thinks it is a computer running 
your BASIC program. The result 
is slow, very slow. All interpreters 
suffer this lack of speed and all 
are slow. 


How would you like your BASIC 
programs to run hundreds or even 
thousands of times faster than 
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they do now? Easy, write them in 
machine language. Too much 
trouble? Well, why not let your 
6800 write them in machine 
language for you? This is what a 
compiler does. It converts your 
programs from BASIC (or other 
high level language) to machine 
language. By the time you read 
this, you should be able to spend 
about $50 and get a compiler for 
your 6800 that will do everything 
that 8K BASIC will do (and 
more). And think about it, your 
programs will run thousands of 
times faster! An additional benefit 
of compiling your programs is 
that the compiler does not have to 
be in the computer when the pro- 
gram is run since your program is 
converted to machine language. 
The effect of this is to give you 
much more usable memory. By 
compiling your programs and 
converting to a real-time 
interrupt-driven system, you 
could easily be playing Star Trek 
while your son, daughter, wife or 
husband is using the computer for 
help with their homework while 
the 6800 is controlling your 
heating and cooling system while 
etc., etc. 


When the first reasonably priced 
compiler hits the personal com- 
puter market, all BASIC timing 
comparisions will have become 
totally meaningless. 6800 BASIC 
runs slow? 


“Frankly; my dear, I don’t care, I 
love my 6800.” 
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MEGABAUD‘“1.2, 
MAYBE? 


Computers are great! You can ex- 
plore the galaxy without leaving 
the corner of the utility room that 
your wife finally let you use for 
the funny set of boxes, play golf 
in air conditioned semi-comfort or 
be a ruler whose name you can’t 
even pronounce. 

Now..... here’s your chance to 
hot rod the SWTPC 6800 without 
getting yourr hands greasy. 


Baud rates! Get your computer to 
cruise at a higher speed. First, 
make sure your terminal can 
operate at 1200 baud. If it is a 
TV-II you have it made. All the 
instructions are right there in 
those loose leaf papers they sent 
you with the UART board, happy 
hunting. 


Remember when you built the 
computer serial interface board, 
the one that’s plugged into port 
#1, if you ever got your system 
running. The people in S.A. (San 
Antonio not South Africa) gave 
you the option of 110 or 300 
baud, and two jumpers with 
which to make your choice. You 
probably selected 300 baud. If it 
was 110 baud because you are us- 
ing a teletype, didn’t you notice 
that you were left out of this arti- 
cle by the algorithm in paragraph 
#2? 


The jumper from point C actually 
selects the number of stop bits 
and not baud rate. A connection 
between C and 300 will be correct 
for any rate above 110, so we will 
leave this jumper alone. The con- 
nection from point D is the one 
that selects the rates. 


The quick and dirty way for this 
mod is to clip the jumper where it 
enters the 300 hole and attach a 
test lead from that little wire to 
the 1200 b pin of an unused port. 


Perhaps you would like to use the 
150 b pin to slow the thing down 
so you can read a long program 
while it is being listed. Just 
remember to adjust the terminal 
to the same rate or all you will 
get on your screen is garbage. 


The neat method will be left up to 
you. One way to do it will be to 
mount a SP4T switch on the com- 
puter cabinet, connect the single 
pole to the hole at D and the 4 
throws to the appropriate lands 
on the bottom of the mother 
board. 


If you are using a cassette inter- 
face e.g. the AC-30 you will soon 
observe that you must switch 
back to 300 baud to dump pro- 
grams. You can, however, load 
300 baud tapes into the computer 
with it set on 1200 baud. This is 
due to the fact that KCS tapes are 
self-clocking. The terminal, 
however, will not respond to this 
self-clocking and if you are 
loading a BASIC program, a 
screen full of garbage will appear. 
On the same note, the terminal 
will not detect the character to 
stop the recorder at the end of the 
recorded program so you will 
have to turn it off yourself when 
the question marks cease. 


Perhaps in the future we will 
discuss a slick method to 
automatically switch back to 300 
baud during tape operation. 


R. L. Hilbun 
8109 Willow Creek Blvd. 
Oklahoma City, Oklahoma 73132 
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MEMTST—A 
Memory 
Test Program 


Errors produced by marginal 
RAM chips can be difficult to find 
if they are transient in nature, 
triggered by temperature, line 
voltage surges, noise spikes, etc. 
This program is an aid in locating 
the defective bit. The program 
tests the memory, and when it 
finds an error it writes its location 
on the control terminal and then 
resumes testing. Thus you can 
leave your computer running all 
day while you are at work, and 
when you come home you have a 
listing of bad memory locations 
and bits in error. 


The program is entirely contained 
in the MIKBUG RAM starting at 
$A014 and extending through 
$A07D, jumping over the stack at 
$A038 through $A049. The star- 
ting address of the memory to be 
tested is loaded into $A002-3 and 
then ending address in $A004-5. 
The program starts by loading the 
B Accumulator with the contents 
of $A000. The first memory loca- 
tion is loaded with the contents of 
B, then B is incremented and load- 
ed into the next memory location 
and so on until the ending loca- 
tion is loaded. The program then 
returns to the first memory loca- 
tion and checks to see if the con- 
tents are the same as was loaded. 
The rest of the memory under test 
is checked in the same way. If a 
disagreement is found the pro- 
gram writes on the control ter- 
minal the incorrect memory con- 
tent, the correct memory content, 
and the address of the erroneous 
byte. Otherwise nothing is writ- 
ten. Register $A000 is then in- 
cremented and the process 
repeated. To keep you from wor- 
rying if the program is running if 
your memory is running error 
free, and thus no print out, the 
cursor is moved to the right by a 


space after loading the memory, 
and then moved back by a back 
space after testing. After 256 
cycles all possible byte values 
have been tried in all of the 
memory locations under test. It 
then repeates again and again un- 
til you stop it with the RESET 
switch. 


PAGE 001 MEMTST 
00100 NAM MEMTST 

00101 OPT 0,S 

00102 *TEST FOR MEMORY FAILURE, 

00103 *PUT START ADDRESS IN $A002, END IN $A004, 
00104 pe one LOADS SEQUENTIAL VALUES IN SUCCESSIVE 
00105 *LOCATIONS, THEN CHECKS, IF CHECK IS INCORRECT 
00106 *INCORRECT VALUE, CORRECT VALUE AND LOCATION 
00107 *ARE PRINTED, CURSOR IS MOVED BACK AND FORTH 
00108 *WITH EACH CYCLE TO SHOW THAT THE PROGRAM IS 
00109 *RUNNING WITH NO MEMORY ERRORS, 

00110 A002 MEMBEG EQU $A002 TEST START ADDRESS 
00111 A004 MEMEND EQU $A004 TEST END ADDRESS 
00112 A000 BSTORE EQU $A000 INITIAL LOAD VALUE 
00113 A0OE WRONG EQU $A00E INCORRECT VALUE 

00114 AOOF RIGHT EQU $A00F CORRECT VALUE 

00115 A010 BADMEM EQU $A010 ERROR ADDRESS 

00116 000A LF EQU SOA LINE FEED 

00117 000D CR EQU $0D CARRIAGE RETURN 

00118 0008 BS EQU $08 BACK SPACE 

00119 EOCC OUTS  EQU $EOCC OUTPUT SPACE 

00120 E1D1 OUTEEE EQU $E1D1 PRINT CHARACTER 

00121 EOCA OUT2HS EQU $EOCA PRINT 2 HEX, SPACE © 
00122 E0Cc8 OUT4HS EQU $EOCS8 PRINT 4 HEX, SPACE 
00123 A014 ORG $A014 

00124 A014 F6 A000 START LDA B BSTORE LOAD MEMORY 

00125 A017 FE A002 LDX MEMBEG 

00126 AO1A E7 00 LOOP1 STAB 0,X 

00127 AO1C BC A004 CPX MEMEND 

00128 AO1F 27 04 BEQ CHECK END ADDRESS? 

00129 AOZ1 08 INX 

00130 A022 SC INC B 

00131 A023 20 FS5 BRA LOOP1 

00132 A025 BD EOCC CHECK JSR OUTS MOVE CURSOR 

00133 A028 F6 A000 LDA B_ BSTORE TEST MEMORY 

00134 AO2B FE A002 LDX MEMBEG 

00135 AOZE A6 00 LOOP2 LDA A 0,X 

00136 A030 11 CBA 

00137 A031 26 27 BNE ERROR GO PRINT MESSAGE 
00138 A033 BC A004 RETURN CPX MEMEND 

00139 A036 20 12 BRA JUMP JUMP OVER STACK 

00140 AO4A ORG SA04A 

00141 AO4A 27 04 JUMP BEQ CYCLE END ADDRESS? 

00142 AO4C 08 INX 

00143 AO4D 5C INC B 

00144 AO4E 20 DE BRA LOOP2 


My system is a SWTPC M-6800 
with 24K bytes of RAM, AC-30 
Cassette Interface, CT-1024 TVT, 
and IBM 731 Selectric for hard 
copy output. 


Emerson Brooks, D.Eng. 
517 Melody Lane 
Richardson, Texas 75081 
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WA4KDC OS was its extensive 


PAGE 002 MEMTST 2 
use of the Mikbug* RAM located 
t $A000-$A07F. It seems that 
00145 AOSO 86 08 CYCLE LDA A #BS MOVE CURSOR BACK at $A000-$/ i ee b 
00146 A0S2 BD E1D1 JSR OUTEEE everyone tries to use this yte 
00147 A055 7C A000 INC BSTORE INCR. INITIAL LOAD RAM for their own purposes and 
00148 AOS8 20 BA BRA START DO ANOTHER TEST all sorts of programs end up 
00149 AOSA FF AO10 ERROR STX | BADMEM PRINT ERROR MESSAGE fighting over it. OS-II makes 
00150 AOSD B7 AOOE STA A WRONG minimal use of the Mikbug RAM 
00151 A060 F7 AOOF STA B et and where OS-II does it, the RAM 
pe ae eg used or the same purpose tha 
00154 A068 86.0A LDA A #LF LINE FEED Mikbug uses the location. 
00155 AO6A BD E1D1 JSR‘ OUTEEE 
00156 A06D CE AOOE LDX | #WRONG POINT TO DATA wh. 
00157 A070 BD EOCA JSR OUT2HS PRINT INCORRECT VALUE Rea ig with: 
00158 A073 BD EOCA JSR | OUT2HS PRINT CORRECT VALUE 
00159 A076 BD EOC8 JSR OUT4HS PRINT ERROR ADDRESS 
Meee pres ca — a pea eS ae At this point, OS-II is ready to 
accept your command. All com- 
00162 A048 ORG $A048 mands are a single character in 
00163 A048 A014 VECTOR FDB = $A014 length, they are as follows: 
B... Block move 
hi he eae aa C... Call (BASIC) 
MEMEND A004 D... Dump 
BSTORE A000 CG... Goto 
WRONG AOQOE 
RIGHT AOOF L... List 
BADMEM A010 M... Mikbug 
LF 000A R... Read tape 
ee pane W ... Write tape 
OUTS OCC Z... Zero memory 
OUTEEE E1D1 
pee ae Provision for an additional com- 
START A014 mand (of your choice) has been 
LOOP1 AO1A included in OS-II. To implement 
ners pee an additional command, at the 
RETURN A033 label “SPARE”, insert the ASCII 
JUMP <AO4A character you with to have OS-II 
Callen See recognize as the command to ex- 
VECTOR A048 ecute your function (any ASCII 


TOTAL ERRORS 00000 


THE WA4KDC 
OS-II 


OS-II© is a refined, shortened, 
and hopefully improved version 
of the original WA4KDC 
Operating System that was 
published in 73 Magazine. It 
should correct most of the pro- 
blems that some people had with 
the earlier version and should be 
easier for most people to relocate, 


as we are publishing a complete 
listing of the program. Regardless 
of where in memory that you 
place OS-II, I would recommend 
that you place it in a block of 
memory separate from the re- 
mainder of your memory to keep 
other programs from overwriting 
it. This is because some programs 
(such as most BASIC’s) clear all 
contiguous memory when initializ- 


ed. 


One of the most common com- 
plaints about the original 


character other than those listed 
above may be used). In the 
following two bytes you should 
then place the address of the entry 
point of your function. 
Remember, your function must be 
written as a subroutine (end with 
an RTS) as all functions of the 
OS-II are implemented as 
subroutines. 


Most functions require that you 
input additional information 
before they can execute, usually, 
the additional information is in 
the form of four digit hexidecimal 
addresses. When this is the case, 
OS-II will add a ““$” in the space 
preceding your input as a 
reminder to you that it expects 


you to input four hex digits. 
Should you type anything that is 
not a hex character, system con- 
trol will be given to Mikbug. 


My apologies to those who are us- 
ing unmodified CT-1024’s as OS-II 
is written for a scrolling type ter- 
minal and never issues a Home- 
up/Erase. You may, however, add 
this to the prompt string when 
you rea-semble OS-II for use in 
your system. 


Now, let’s look at the functions of 
OS-II. Let’s begin with the Block 
Move function. The Block Move 
function does just that, it moves a 
block of data from anywhere in 
memory to anywhere in memory. 
It does not take care of any 
“housekeeping” (you will have to 
change any extended addresses) 
because it does not know whether 
it is moving a program or data. 
After each byte is moved, it is 
read at the new location and 
tested ot see if it is correct. If bad 
data is read at the new location, a 
software interrput will occur and 
the contents of the registers will 
be printed. Should this occur, the 
index register will contain the ad- 
dress of the location of the pro- 
blem, the “A” reg. will contain 
the correct data, and the “B” reg. 
will contain the bad data. This 
should be helpful in locating and 
troubleshooting memory bugs! 
The Block Move function issues 
three prompts: “TO”, “START”, 
and “STOP”. When is issues the 
prompt “TO”, it is asking for the 
lowest address of the destination 
of the move. The “START” and 
“STOP” prompts are asking for 
the lowest and highest addresses 
of the block of data that you 
want moved. 


The Call (Basic) function is really 
just an “automatic block move’. 
And it could be used to call an 
editor, assembler, startrek or 
anything else you desire. The 
RUN, LBASIC, and HBASIC 
labels respectively define the 
“TO”, “START”, and “STOP” for 


block moving Basic from high 
memory (where it is stored) to 
low memory where it is executed. 
The values given in the listing 
assume Tom Pittman’s Tiny Basic 
is stored at $3400 thru $3BFF. 
Let’s assume that we have OS-II 
in memory and want to use Tom’s 
Tiny as the Basic in the Call Basic 
function. How do we go about 
doing this? Assuming OS-II has a 
starting address of $3000, first 
load Tiny Basic into memory 
from tape and use the Block Move 
function of OS-II to move it to 
$3400-$3BFF. Then you make a 
tape beginning at $3400 thru the 
end of OS-II. Anytime thereafter 
that you load this tape, you will 
be loading both OS-II and Basic; 
with the Call Basic function 
automatically moving and ex- 
ecuting Basic when it is used. The 
main advantage of having the Call 
Basic function is that you are able 
to alternate between running Basic 
and machine language programs 
(in low memory) without having 
to wait while Basic is reloaded 
from tape each time. 


The Dump function of OS-II 
works a bit differently than the 
Dump function of the original 
WA4KDC OS. The Dump func- 
tion of OS-II prints the memory 
dump on both the control ter- 
minal and on the PR-40 (turn the 
PR-40 off, if you don’t want a 
permanent copy). And the Dump 
may be interrupted by tapping 
the’ ESCape” key on the control 
terminal. The Dump function pro- 
mpts with “START” and “STOP”, 
in both cases it is asking for hex- 
idecimal addresses and it prints a 
dump of everything between the 
two addresses that you give it. 


The Goto function was added 
because I received a number of re- 
quests for it. The Goto function 
prompts with “TO” and wants an 
address. When you input an ad- 
dress it does a jump to subroutine 
to the address you have in 
memory and execute them in any 
order you wish. 


The list function works very much 
as it did in the original WA4KDC 
OS, except it prints the listing on 
both the control terminal and the 
PR-40. It may be interrupted, as 
in the Dump function, by tapping 
the “ESCape” key on the control 
terminal. If you want a more 
complete disassembler, might | 
suggest mine - published in 
Kilobaud Magazine. 


The Read Tape and Write Tape 
functions should be considered 
together. The Write function pro- 
mpts with: 
NAME? (What's the name of 
the program?) 
(What's the lowest 
address of the pro- 
gram?) 
(What’s the highest 
address of the pro- 
gram?) 
PC? (What's the entry 
point or initial pro- 
gram counter setting?) 


START? 


STOP? 


When you have supplied all of 
this information, OS-II will make 
your tape. It begins with three 
seconds of nulls, then the name of 
the program, the program itself, 
the program counter, and finally 
an S9. By putting all of this in- 
formation on the tape, you may 
fill your tapes with programs and 
use the Read Tape function to 
find the particular program you 
desire to load - and load it. When 
OS-II is outputting your program 
to tape, it uses a modified Mikbug 
format in that it outputs 240 bytes 
per line instead of the sixteen byte 
lines used by Mikbug. These tapes 
are directly loadable by Mikbug 
and save more than thirty seconds 
per kilobyte of memory put to 
tape. In either the Read Tape of 
Write Tape functions, when OS-II 
has issued the prompt “NAME?” 
you may input anything you 
desire as the name of the program 
(up to 64 characters). You ter- 
minate the input of the name with 
a carriage return. The Read func- 
tion issues only the prompt 


90759 3C8E FF 3F56 STX ‘TEMP2 
go760 3C91 CE 3BFF LDX  #EBASIC 
@2779 3094 IF 3F58 STX TEMPS 
g0780 3C97 BD C5 BSR  STRMOV 
@2799 3CO9 7E 9102 IMP RUN 
82820 Z190—SC«RUN = QU. Ss $188 
90810 3409 LBASIC EQU $3490 
20820 SBFF  HBASIC EQU  $3BFF 
goe3g COC SD 91 DUMP ESR CRLF 
90843 3CSE CE 3F36 LDX  #SPARTS 
GOE50 3CA1 BD EO7E JSR PDATA2 
gOseo 3CA4 BD E47 JSR  BADDR 
90870 3CA7 FF 3F54 STX TEMP1 
@88d 3CAA 8D &3 BSR CRLF 
@089@ 3CAC CE 3F3E LDX #STOPS 
@@e@@ 3CAF BD EQ7E JSR PDATAL 
@0¢12 3CE2 BD E047 JSR BADDR 
22920 3CB5 FF 3F56 STX  TEVP2 
PAGE @31 OS-II 99932 3CB8 86 @D DUMP1 LDA A #13 
22940 3CBA SD 4B ESR OUTCHR 
2095@ 3CBC BD 3C2F JSR CRLF 
g96@ 3CBY CE 3F54 LDX  #TEMP1 
e212 NAM  OS-II @9970 3CC2 @D 1A BSR  OUT4HS 
G2222 EQES MIKBUG EOQU oat 2@980 3CC4 C6 @8 LDA B #8 
20030 E1D1 § OUTEEE EQU E1D1 20980 3CC6 FE 3F54 LDX ‘TEMP1 
BLC4E ELAC INEEF EQU $E1AC g1eg@ 3CC9 8D 15 DUMP2 ESR OUT2HS 
O2250 EO7E PDATA1 EQU SEO7E 1919 3CCB 29 DEX 
pil ve Lents ie at eet g1¢@2@ 3CCC EC 3F56 CPX TEMP2 
QU F LE MP3 
20289 E13 LOADS EOQU $E213 yes noe A a BH L ee 
S829 E@BF MOUT2H EOQU SEQEF 21059 3CD3 29 32 BRA OUTCER 
GZ182 88Z4 CNTPIA EQU $8204 @19@6@ 3CD5 88 DUMPS INX 
@2118 801C PIRPIA EQU $e8g1c 21970 3CD6 5A DEC B 
90126 OPT o G198@ 3CD7 26 FO BNE DUMP2 
20130 3020 ORG 3029 21092 3CD9 FF SF54 stXx TEMP1 
22140 3C@@ SE AG4% MAINLP LDS #54048 G119@ 3CDC 2@ DA BRA DUMPi 
@15@ 3C93 BF Ag@e STS $A 21119 3CDE 8D @6 OUT4HS BSR OUTZH 
@G162 3CG6 CE 3000 LDX  #MAINIP 1120 3CR¢ gD @4  OUT2HS BSR OUTZH 
@0179 3C09 FF AQ46 STX  PC-2 31130 SCEZ 86 29 OUTS LDA A #52 
92180 3CGC FF AG48 STX PC 21149 3CE4 20 21 BRA  OUTCHR 
20192 3COF 8D 1E  MAINL2 ESR CRLF 21159 3CEG AG 92 OUT2H LDA A X 
30200 3C11 CE 3F23 LDX § #READY @1169 3CE8 8D OF BSR OUTHL 
9@219 3014 8D 1C BSR § PNISTR @1170 3CEA A6 QO LDA A X 
30220 3C16 BD F1AC JSR‘ INEEE @1188 3CEC 8 INX “ ” 2 
9G23G 3CiS CE 3F59 IDX #JMPTBL- 91199 3CED 20 OE BRA OUTHR NAME?”. When you have com 
g2249 3C1C 28 MAINL3 INX $1200 3CEF 8D 16 PDATA2 BSR OUTCHR pleted inputting the name of the 
20250 3C1D 28 INX GiZ18 3CF1 98 INX h tae 
ae260 aie a i in ee Q1220 3CF2 A6 @@ PDATAS LDA : a program that you want loaded, 
g BC 3 P) #TBLEN @1230 3CF4 81 04 # : : 
Boke Sees oF Dn a ens cea Cee ee Ge cc EORRS the Read function will turn the 
02200 SC24 Al a0 CMP A Xx 81258 SCRE 39 RIS tape reader on and begin sear- 
Q0300 3C26 26 F4 BNE  MAINL3 21260 3CFS 44 OUTHL LSR A Fase hax ah ‘i 
20510 3026 oe INX gi27@ SCFA 44 LS A ching for the program you have 
20320 3029 EE @ EX tC«éd: 31280 3CFB 44 LSR A : _ 
Sn book Ld ae 3 oe fe i selected. When the desired pro 
90340 3C2D 28 D1 BRA MAINLP $1300 3CFD 84 @F OUTHR AND A #$F gram is found, it is loaded into 
@0350 3C2F CE 3F1E CRLF LDX  § #CRSTR 21318 3CFF 8B 30 ADD A #$30 é 
@236@ 3C32 7E EQ7E PNTSTR JMP PDATA1 21320 3D@1 81 39 CMP A #$39 memory and system control 1s 
@@370 3035 8D F@ BLOCK BSR  CKLF $1332 3D23 23 @2 BLS  OUTCHR : : : 
0380 3C37 CE 3F31 LDX #0 31340 3D05 8B 27 ADD A #7 given to Mikbug. From that point, 
eesce SC3A 8D Fé BSR PNTSTR © 21350 3D07 8D 29 OUTCHR BSR = BREAK typing’G” will execute the pro- 
90400 3C3C BD 1047 JSR BADDR 21360 3D09 36 PSE A : 
0@410 3C3F .FF BPs STX TEMP1 @1372 3DZA BD E1D1 JSR  OUTEEE gram. There a couple of points 
9242 3042 SD EF BSR CRLF 21380 3D@D 32 PUL A ; ; 
00430 3C44 CE 3F36 LDX  #STARTS 91399 3D@E FF SFSA OUTCH1 STX  XTEMP you should keep in mind when 
goseo 3047 BD FS BSR PNTSTR 81498 3D11 37 PSEE apr, | YOu are using the Read Tape func- 
98450 3C49 BD EG4 JSR ADDR 91419 3D12 CE 8G1C LDX # : 
eo460 S040 FF FSG STX  TEMP2 91428 3D15 CS IF LDA B #8EF tion. If the program that you 
20470 3C4F @D DE BSR CRLF 01430 3D17 EV 20 STAB X ‘ iS 
@@48¢ 3C51 CE 3F3E LDX - ¥STOPS 91440 3D19 C6 3F LDA B #$3F name 1s not on the tape, OS-Il 
go4se 3054 8D DC ESR PNTSTR 01450 3D1B E? 1 STAB 1,X will keep searching to the end of 
@2500 3C56 BD E047 ISR ADDR 91460 3D1D A? QO STA A X : 
90519 3C59 FF 3F58 STX TEMPS 01470 3D1F C6 37 LDA B #$37 the tape and you will have to 
@0520 3C5C 8D D1 BSR CRLF 91480 3D21 E? @1 STA B 1,X push the “RESET” button to 
20530 3CSE FE 3F56 STRMOV LDX — ‘TEMP2 91490 3D23 C6 3F LDA B #$3F : 
gosae S061 AC 00 IAA KO 21500 3D25 EB? Bt STAB 15X escape the read function or you 
6 i |‘ $1516 3D27 6D @1 OUTCH2 TST 2% : : 
pecea acee fe ab cia MOYEI ee Gees Ek BO sO eee may insert the proper cassette into 
@O57G SC6R FE 3F54 LDX = TEMP1 91530 3D2B E6 G0 LDA B X the recorder and restart the 
@@582 3CER A? BO STA A X 154@ 3D2D FE 3F5A LDX XTEMP d 1 a 
~~ ahee pe bie a 01558 3D3e 33 PUL B recoraer. Also, suppose you ave 
@1560 3D31 39 RTS : : 
sere CGY EY 358 a ee Cn eee wee Fer a a cassette in the recorder which 
90620 S072 FE 3F54 LDX = TEMP4 21580 3D33 B6 e004 LDA A cntPId _ has the following programs on it: 
@OEZE 3C75 AV BB STA A X $1593 3D5S 2A 02 BPL BREAK1 3 3 : ; ‘ 
@0640 3077 EG GO IAB x 91600 3D38 32 PUL A Micro-Basic, Tiny Basic, 4K Basic, 
20650 SC7S 11 CBA 91619 3D39 39 RTS ‘ ; 
00660 3C7A 27 Ot FEQ  MOVEZ 1620 3D3A BG 6004 EREAK1 LDA A CNTPIA 8K Basic, and 12K Basic. If you 
g2672 BC7C SF Swi 1630 3D3D 2A FB BPL BREAK tell OS-II to read “Basic” as the 
B68 3C7D 8 MOVE2 INX 21640 3D3F 86 @D BREAK2 LDA A ¥#$D ' ace 
@0690 3C7E FF 3F54 six TEMP! 91659 3D41 8D CE BSR OUTCE1 desired program, it will load the 
OO7G2 3C8l ee DB BRA TRMOV @1662 3D43 BD 3C2Fr JSR CRLF c come ey 
o@710 3C83 8D AA CEASIC BSR CRLF 21670 3D46 7E 3000 up omArnzp ~—_—sde'st Basic it finds. If you wanted 
0722 sce cE 9100 LDE ue e169 SD49 BD SCzF LIST JSK ae 8K Basic, you should have told it 
= 216998 SD4C e 2 aa oo 4a soot 
@074@ SCS8E CE 3400 LDX #LBASIC @17@0 3D4F BD E@7E JSR PDATAL to read either 8K” or 8K Basic’. 


aS | 


Neen 


PAGE 


21718 
21728 
01738 
91740 
81758 
@1760 
1770 
81780 
81798 
91880 
18190 
@1820 
01830 
91849 
91852 
81869 
1872 
01882 
81890 
1982 
91918 
21929 
21938 
91946 
81956 
81968 
21976 
1988 
21999 
22800 
@2@10 
@2620 
02932 
22849 
22658 
22960 
620670 
82082 
2898 
2212 
@2110 
82120 
82138 
22146 
82150 
8216 
82176 
@21&9 
82198 
22280 
#2210 
82226 
22238 
22249 
22250 
#2260 
82270 
8228¢ 
22292 
223289 
823512 
22328 
22330 
82343 
82358 
22368 
8237¢ 
82380 
82396 
82406 
22416 
82426 
82439 
22449 
32458 
22468 
82470 
22480 
82496 
82502 
@2510 
@2529 
22538 
82546 
22552 
22560 
2578 
@258a 
@259¢ 
22602 
@261¢ 
@2628 
22632 


82 


SD52 
3D55 
3D58 
SD5B 
SD5E 
SD61 
SD64 
SD67 
SD6A 
SD6C 
SD6F 
3D72 
3D75 
SD?77 
SD7A 
SD?7D 
3D8g 
3D83 
SD&4 
3D87 
3Da9 
SD8B 
3DeD 
SD8SF 
SI91 
SD93 
3B95 
SD97 
3D99 
SD9OB 
SDOD 
SDOF 
eDAL 
SDA3 
SDA4 
SDAS 
SDA8 
SDAA 
SDAD 
SDAF 
SDE2 
SDB4 
SDB? 
SDBA 
SDED 
SDCce 
3DC2 
SDC5 
3DCce 
3DCA 
SDCD 
SDDS 
sDD2 
3DD5 
3DD8 
SDDB 
SDDE 
SDE1 
SD ES 
SDEG 
SDES 
SDEC 
SDEE 
SDF1 
SDFS 
SDFG 
SDFS8 
SDFE 
SDFE 
3E@1 
SEg3 
SEG5 
SEGE 
3EG8 
SEGA 
SEOC 
SEOF 
$E12 
SE15 
3E18 
SE1B 
SED 
SE1E 
SE2G 
SE22 
SE23 
SE25 
SE27 
3E28 
3E2B 
SE2E 
3E31 
SE33 


LIst2 


LISTS 
LIST4 
LISTS 


LIST6 
LIST? 
LISTs 


JMPBRK 
GOTO 


READ 


READ2 
READS 


LNAME 
LNAME2 


WRITE 


AND 
CMP 
BNE 
INC 
INC 
STA 
BEQ 
DEC 
BEQ 
JSR 
ERA 
JSR 
STX 
LDA 
CMP 
BCS 
LDA 
CMP 
BCS 
LDA 
CMP 
BCS 
IMP 
JSR 
LDX 
JSR 
JSR 
JMP 
JSR 
LDX 
JSR 
BSR 
JSR 
LDA 
STA 
LDA 
JSR 
LDX 
JSR 
CMP 
BNE 
INX 
LDA 
CMP 
BNE 
LDS 
STS 
JMP 
LDX 
JSR 
STA 
INX 
CMP 
BNE 
DEX 
LDA 
STA 
RTS 
JSR 
LDX 
ISR 
ESR 
JSR 


Wott FP f Pe > FF Pew 


a a 


> p> be 


BADDR 
TEMP1 
CRLF 
#STOPS 
PDATAL 
BADDR 
TEMP2 
#CRSTR 
PDATAS 
#TEMP1 
OUT4HS 
TEVP1 
x 
TEMPS 
OUT2ES 
TEMP1 
ouTS 


TEMPS 
#$8C 
LIST3 
#$8E 
LISTS 
#$CE 
LISTS 
#599 
#$28 
LIST4 
#$62 
LIST5 
#$32 
#$32 
LIST4 


TEMP3+1 
LISTS 
TEMP3+1 
LISTS 
OUT4ES 
LIST? 
OUT2ES 
TEMP 
TEMP1 
TEMP2 
LIST2 
TEMP2 
TEMP 
JMPBRK 
TEMP1+1 
TEMP2+1 
LIST2 
BREAK2 
CRLF 
#70 
PDATA1 
BADDR 

x 

CRLF 
#NAMSTR 
PDATA1 
LNAME 
CRLF 
#$3C 
CNTPIA+3 
#$11 
OUTEEE 
#NAMSTO 
INEEE 

x 

READZ 


x 
#4 
READ3 
#$A942 
$4928 
LOAD3 
#NAMSTO 
INEEE 

X 


#5D 
LNAME2 


#4 


22642 
32656 
82668 
22670 
G2686 
@2690 
C2708 
@2718 
82720 
82738 
@274¢ 
82759 
G276B 
B2770 
22780 
82798 
82806 
02812 
82820 
22632 
02840 
22858 
22866 
82872 
@286S 
82898 
82928 
82918 
@2928 
22932 
22943 
22958 
@2966 
e272 
22986 
22996 
C386 
@3018 
G2025 
22838 
G3048 
23850 
G3GE0 
83978 
O3280 
23090 
23130 
3110 
22128 
83130 
33148 
@3158 
23160 
@3178 
22180 
32198 
85289 
2521¢ 
23229 
23230 
03242 
235259 
23268 
@3273 
3288 
25293 
23380 
833198 
03323 
82538 
03349 
23350 
GS3EB 
83376 
9338S 
83392 
83488 
03412 
93426 
23430 
92449 
03458 
23468 
83476 
G3489 
92499 
GE5Ce 
93518 
83528 
83536 
@3540 
23558 
93560 
83578 
@3580 
83598 


SESS 
SESS 
SESC 
SESF 
S42 
SE45 
SE48 
SE4B 
SE4E 
3ES1 
SES4 
SE57 
SESA 
SESD 
SE6Q 
SEG2 
SE65 
SE6? 
SEGA 
SEED 
SE6F 
SE72 
3E75 
SE76 
SE7S 
SE7B 
SE7E 
SE81 
SE&4 
SESE 
3E89 
SE8A 
SE8C 
SESF 
SFOS 
3E92 
3E93 
SE96 
SES 
3EOC 
SESF 
SEA2 
SEAS 
SEA? 
SEAS 
SEAE 
SEAD 
SEAF 
SEB2 
SERA 
SEB? 
SEBA 
SEBD 
SERE 
SEC1 
SECS 
SECE 
3EC8 
SECA 
SECD 
SECF 
SED2 
SED4 
SED? 
SEDS 
SEDO 
SEDA 
SEDC 
SEDD 
SEEQ 
SEE1 
SEE4 
SEEG 
SEE? 
SEEQ 
SEEC 
SEEF 
SEF2 
SEF5 
SEFS 


SEFB B 


SEFE 
SF@1 
SIG4 
3FG7 
SFGA 
SFOD 
SFE 
SF1Q 
SF1zZ 
SF14 
SF15 
SF16 
SF1ig9 
SF1F 
SF1D 


OUT2S 
OUTZ1 


TPUNCH 
PUNIL 


PUNZ2 
PUN23 


PUNS2 


PUNT2 
ZERO 


CLEAR 


CLEAR2 


JSR 
BSR 


SX 
INX 


BSR 
JSR 


LDA 
JSR 


LDX 
LDA 


BNE 
CMP 


LDA 


ADD 
STA 


BSR 


BSR 
PUL 


ADD 
JSR 


LDX 
JSR 


STX 
LDX 


C 
CLR 
CMP 


INX 


RTS 


Pie od od ee 


wo 


#STARTS 
PDATAL 
BADDR 
TEMP1 
CRLF 
#STOPS 
PDATAL 
BADDR 


#TBLEND 
PDATAL 
TPUNCH 
#PC 
TEMP1 


TEMP2 
TPUNCH 
CRLF 
#SOSTR 
PDATAL 
#514 
OUTEEE 


#90 
OUTEEE 


OUuUTe@1 


TEMP1 
SAGOF 
TEMP2+1 
$AG19 


PDATAL 


#$A911 
PUNT2 
#SAQOF 
PUNT2 
PUNT2 
SAGOF 
PUNT2 
$AQOE 
PUNS2 
$AQQF 


PUNT2 
SAQOF 


TEMP2 
PUN1L 


x 
MOUT2H 
CRLF 
#STARTS 
PDATA1L 
BADDR 
TEMP1 
CRLF 
#STOPS 
PDATAL 
BADDR 
TEMP2 
TEMP1 


x 

Xx 
CLEAR2 
TEMP2 


CLEAR 
Xx 


The Zero Memory function will 
clear any block of memory that 
you specify. If the block specified 
in non-existent, ROM, or if you 
have a problem with the RAM 
such that it will not clear; you 
will get a software interrupt as ex- 
plained in the discussion on the 
Block Move function earlier. The 
Zero Memory function can be 
very useful in testing tapes, clear- 
ing buffers, etc. 


I almost forgot to tell you about 

the Mikbug function! This turns 

system control to Mikbug. From 
this point you may return to OS- 
II by typing “G”. 


To the best of my knowledge, this 
is the final operating system that 
you will see from this author. It 
is, I believe, thoroughly debugged 
and in it’s final form. It is very 
useful and powerful; but all things 
of this sort tend to be rather time- 
ly. A year or two from now we 
may all be laughing at any non- 
disc-based systems software, but 
for now, use and enjoy! 


73's & Happy Computing! 
Mikey Ferguson, WA4KDC 
P.O. Box 708 

Trenton, Georgia 30752 
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3600 SF1IE 3D CRSTR FCE $D,$A,9,8,4 


23610 3F23 4F READY FCC /OS READY/ 


93620 3F2B OD FCB $D,$A,8,9,62,4 


@35630 3FS1 54 TO FCC /T0 $/ 


O3640 3F35 64 FCB 4 
83658 3F36 53 STARTS FCC /START $/ 


93660 3F3D 04 FCB 4 
$3670 SF3E 53 STOPS FCC /STOP $/ 


93680 3F44 04 FCB 4 
@3690 3F45 53 SSSTR FCC /s9/ 


@3700 3F47 04 FCB 4 
@3718 3F48 5d PCSTR FCC /?C $/ 


93720 SF4C 04 FCE 4 
@3738 3F4D 4E NAVSTR FCC /NAME? / 


@3748 3FSS 04 FCB 4 
@3752 3F54 6902 TEMP1 KMB 2 
23760 3F56 8902 TEMP2 RMB 2 
23770 SF58 0892 TEMPS RMB 2 
@378@ SF5A 8892 XTEVP RMB 2 


33798 3F5C 42 JMPTBL FCB 66 
@38G2 3F5D 3035 FDB BLOCK 
9381@ 3FSF 43 FCB 67 
93822 3F6@ 3C83 FDB CEASIC 
@3830 SF62 44 FCB 68 
23848 3F62 SC9OC FDB DUMP 
@385@ 3F65 47 FCB 71 
@3860 SF66 SDD5 FDB GOTO 
93870 SF68 4C FCB 76 
22880 SF69 3D49 FDB LIST 
@3890 SF6E 4D FCE 77 
23982 3FEC EGES FDB MIKBUG 
@391% SF6E 52 FCB 82 
93920 3F6F 3DE3 FDE READ 
93938 3F71 57 FCB 87 
@3948 SF72 SE28 FDB WRITE 
@3952 3F74 SA FCB 93 
23960 3F75 3EEC FDB ZERO 
@3972 3F7? 9203 SPARE RMB 3 
83982 3F7A OD TBLEND FCB $D,$A,9,0 

SF7B OA 

SF7C OG 

SF7D 8 
83990 3F7E 2940 NAMSTO RMB 64 
24802 AG48 ORG PC 
04019 AG48 3CO9 PC FDB MAINLP 
24928 END 


TOTAL ERRORS 80000 
Editorial Comments: Thank you 
Mickey for your fine contribu- 
tions to both the ICCD and the 
computer users—we appreciate 
ENTER PASS : 1P,2P,2L,2T your work. 
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